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800 



class Source 

ToString(source as Source, codeLayer as CodeLayer) as String 



var s as String=" 
step foreach node in source.codeNodes 

s+=ToString(node,codeLayer) y 
step 

return s 804 



\ 

802 



806 



ToString(codeNode as CodeNode .codeLayer as CodeLayer) as String 
match codeNode 

simpleNode as SimpieCodeNodeiy 
return simpleNode.code \^ 

808 

node as HighLowCodeNode: 

^^810 

let activeNodes=if node in codeLayer.highNodes 
node.highNodes -^t^ 
else 812 
node.lowNodes 
var s as String="" 

step foreach node in activeNodeSeq 
s+=ToString(node,codeLayer) ^^^^ 
step 814 
return s 
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%macro 




(wniteopace/ l » 




%expression Main 




//■[\n] voignore, 




* *\n< 1 IMP M ino* * 

. \n LiiNt: , Line , 




•{whiteSpace}#codenode{whiteSpace}\r?\n* 


NodeStart, 


•NodeStartHighPassive'; 


iNoaecnu, 


{whiteSpace}#codenodeena{wniteSpace)\r('\n 


•NodeEnd'; 


LowCodeStart, 


■{whiteSpace}#lowcode{whiteSpace}\r?\n' 


'LowCodeStart'; 
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%production nodes 


Nodes nodes -> ; 




NodesNode nodes -> nodes node; 




HighLowCodeNode node -> NodeStart nodes LowCodeStart nodes NodeEnd; 


SimpleNode node -> LINE; 
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var V as Set of Vertex 

var E as Set of (Vertex.Vertex) 

var S as Seq of Vertex = Q 

topsortO ^1004 
#codenode 
#codenode ^ 
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1014 
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S:= any s|s in AIIPermutations(V) where 
foreach i in Indices(s), j in Indices(s) 
holds if i<j then (s(i),s(i)) notin E 



//begin CNO 
//begin CN1 

\ 

1020 



1016 



AIIPermutationsOfS(S as Set of Vertex) as Seq of Seq of Vertex 
let seq = ToSeq(S) 
ifS = {} 

return [Q] 
else 

var ret as Seq of Seq of Vertex=D 
step foreach s in S 
step foreach si in AIIPermutationsOfS(S-{s}) 
let t=[s]+s1 
ret:=ret+[t] 
step 
return ret 

1006 

/ 

#lowcode 
step until fixpoint 
let X = V - ToSet(S) 
if X<>Othen 

S := S + [(any v 1 v in X where not(exists u in X where E(u,v)))] 
#codenodeend m— 1 008 H^^^ 1 



#lowcode M — 1010 
step foreach v in V 
Adj(v):={} 

step foreach (u.v) in E 
Adj(u):=Adj(u)+{v} 

step foreach v in V 
DFSVisit(v) 
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enum Color 
Black 
White 

var Adj as Map of Vertex to Set of Vertex={->} 

DFSVisit(u as Vertex) 
if u.color=Color.White 
step 

u.color:=Color.Black 
step foreach v in Adj(u) 
if v.color=Color.White 
DFSVisit(v) 
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//end CNO 
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class Vertex 

key as Integer 
#codenode — 1 104 
#lowcode 

var color as Color=Color.White 





//begin CN2 




//end CN2 
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catch 



step foreach j in [1] 
step 

topsortO 
step 

WriteLine(S) 
S:=n 



e as Exception: 
WriteLlnefGraph is cyclic") 



#codeLayer{CNO. CN1, CN2} 
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var V as Set of Vertex 
var E as Set of (Vertex.Vertex) 
var S as Seq of Vertex = Q 



1202 



;opsort() 

S:= any s|s in AIIPermutations(V) where 
foreach i in Indices(s), j in Indices(s) 
holds if i<j then (s(j).s(i)) notin E 



AIIPermutationsOfS(S as Set of Vertex) as Seq of Seq of Vertex 
let seq = ToSeq(S) 
ifS = {} 

return [Q] 
else 

var ret as Seq of Seq of Vertex=n 
step foreach s in S 
step foreach si in AIIPermutationsOfS(S-{s}) 
Iett=[s]+s1 
ret:=ret+[t] 
step 
return ret 



class Vertex N ^£04 
key as Integer/ 

step foreach j in [1] 
step 

topsortO 
step 

WriteLine(S) 
S:=D 
catch 

e as Exception: 
WriteLinefGraph is cyclic") 
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FIG. 13 



1300- 



var V as Set of Vertex 

var E as Set of (Vertex, Vertex) 

var S as Seq of Vertex = fl 

topsortO 

step until fixpoint 
let X = V - ToSet(S) 
ifX<>{}then 

S := S + [(any v | v in X where not(exists u in X where E(u,v)))] 



class Vertex 
key as Integer 



step foreach j in [1] 
step 

topsortO 
step 

WriteLine(S) 
S:=D 
catch 
e as Exception: 
WriteLineC'Graph is cyclic") 
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FIG. 14 
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varVas Set of Vertex 

var E as Set of (Vertex.Vertex) 

var S as Seq of Vertex = fl 



topsortO 
step foreach v in V 
Adj(v):={} 

step foreach (u,v) in E 
Adj(u):=Aclj(u)+{v} 

step foreach v in V 
DFSVislt(v) 



enum Color 
Black 
White 



var Adj as Map of Vertex to Set of Vertex={->} 



DFSVisit(u as Vertex) 
if u.color=Color.White 
step 

u.color:=Color.Black 
step foreach v in Adj(u) 

if v.color=Color.White 

DFSVisit(v) 
step 

S:=[u]+S 

class Vertex 
key as Integer 

var color as Color=Color.White 



step foreach j In [1] 
step 

topsortO 
step 

WriteLine(S) 
S:=D 
catch 
8 as Exception: 
WriteLineC'Graph is cyclic") 
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